home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / ActiveX Controlls / NCTAudioEditor2 ActiveX DLL / NCTAudioEditor2.exe / {app} / Samples / TestDelphiAudioEditor2 / Convert.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2003-03-28  |  2.4 KB  |  71 lines
  1. unit Convert;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ExtCtrls, NCTAUDIOEDITOR2Lib_TLB;
  8.  
  9. type
  10.   TfrmConvert = class(TForm)
  11.     OKBtn:     TButton;
  12.     CancelBtn:     TButton;
  13.     rgFrequency: TRadioGroup;
  14.     rgCnannels: TRadioGroup;
  15.     procedure FormShow(Sender: TObject);
  16.     procedure OKBtnClick(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.   public
  20.     { Public declarations }
  21.   end;
  22.  
  23. var
  24.   frmConvert: TfrmConvert;
  25.  
  26. implementation
  27.  
  28. uses Main;
  29.  
  30. {$R *.dfm}
  31. //---------------------------------------------------------------------
  32. procedure TfrmConvert.FormShow(Sender: TObject);
  33. begin
  34.     rgCnannels.ItemIndex := frmMain.AudioEditor1.FileInfo.Channels - 1;
  35.     case (frmMain.AudioEditor1.FileInfo.Frequency) of
  36.         FQ_6_KHZ: rgFrequency.ItemIndex := 0;
  37.         FQ_8_KHZ: rgFrequency.ItemIndex := 1;
  38.         FQ_11_KHZ: rgFrequency.ItemIndex := 2;
  39.         FQ_12_KHZ: rgFrequency.ItemIndex := 3;
  40.         FQ_16_KHZ: rgFrequency.ItemIndex := 4;
  41.         FQ_22_KHZ: rgFrequency.ItemIndex := 5;
  42.         FQ_24_KHZ: rgFrequency.ItemIndex := 6;
  43.         FQ_32_KHZ: rgFrequency.ItemIndex := 7;
  44.         FQ_44_KHZ: rgFrequency.ItemIndex := 8;
  45.         FQ_48_KHZ: rgFrequency.ItemIndex := 9;
  46.         else rgFrequency.ItemIndex := -1;
  47.     end;
  48. end;
  49. //---------------------------------------------------------------------------
  50.  
  51. procedure TfrmConvert.OKBtnClick(Sender: TObject);
  52. var
  53.     Chan: ChannelsConstants;
  54. begin
  55.     Chan := ChannelsConstants(rgCnannels.ItemIndex + 1);
  56.     case (rgFrequency.ItemIndex) of
  57.         0: frmMain.AudioEditor1.ConvertSampleType(FQ_6_KHZ, Chan);
  58.         1: frmMain.AudioEditor1.ConvertSampleType(FQ_8_KHZ, Chan);
  59.         2: frmMain.AudioEditor1.ConvertSampleType(FQ_11_KHZ, Chan);
  60.         3: frmMain.AudioEditor1.ConvertSampleType(FQ_12_KHZ, Chan);
  61.         4: frmMain.AudioEditor1.ConvertSampleType(FQ_16_KHZ, Chan);
  62.         5: frmMain.AudioEditor1.ConvertSampleType(FQ_22_KHZ, Chan);
  63.         6: frmMain.AudioEditor1.ConvertSampleType(FQ_24_KHZ, Chan);
  64.         7: frmMain.AudioEditor1.ConvertSampleType(FQ_32_KHZ, Chan);
  65.         8: frmMain.AudioEditor1.ConvertSampleType(FQ_44_KHZ, Chan);
  66.         9: frmMain.AudioEditor1.ConvertSampleType(FQ_48_KHZ, Chan);
  67.     end;
  68. end;
  69. //---------------------------------------------------------------------------
  70. end.
  71.